unit Errors;

interface

type
  Msg = class
    class procedure Alert (msg: string);
  end;

implementation

uses
  Windows, Forms;

class procedure Msg.Alert (msg: string);
  begin
    Application.MessageBox(PChar(msg), 'alert', MB_OK)
  end;

end.
